﻿Imports System.Configuration
Public MustInherit Class PadroesForcaSenha

    Private _minimoCaracteresSenha As Integer
    Public Property MinimoCaracteresSenha() As Integer
        Get
            Return _minimoCaracteresSenha
        End Get
        Set(ByVal _value As Integer)
            _minimoCaracteresSenha = _value
        End Set
    End Property

    Dim _exigeNumeros As Boolean
    Public Property ExigeNumeros() As Boolean
        Get
            Return _exigeNumeros
        End Get
        Set(ByVal _value As Boolean)
            _exigeNumeros = _value
        End Set
    End Property

    Dim _exigeLetras As Boolean
    Public Property ExigeLetras() As Boolean
        Get
            Return _exigeLetras
        End Get
        Set(ByVal _value As Boolean)
            _exigeLetras = _value
        End Set
    End Property

    Dim _exigeSimbolos As Boolean
    Public Property ExigeSimbolos() As Boolean
        Get
            Return _exigeSimbolos
        End Get
        Set(ByVal _value As Boolean)
            _exigeSimbolos = _value
        End Set

    End Property

    Dim _exigeMaiusculas As Boolean
    Public Property ExigeMaiusculas() As Boolean
        Get
            Return _exigeMaiusculas
        End Get
        Set(ByVal _value As Boolean)
            _exigeMaiusculas = _value
        End Set

    End Property

    Dim _notaExisteCaracteresNaSenha As Integer
    Public Property NotaExisteCaracteresNaSenha() As Integer
        Get
            Return _notaExisteCaracteresNaSenha
        End Get
        Set(ByVal _value As Integer)
            _notaExisteCaracteresNaSenha = _value
        End Set

    End Property

    Dim _notaExisteNumero As Integer
    Public Property NotaExisteNumero() As Integer
        Get
            Return _notaExisteNumero
        End Get
        Set(ByVal _value As Integer)
            _notaExisteNumero = _value
        End Set

    End Property

    Dim _notaExisteMaiuscula As Integer
    Public Property NotaExisteMaiuscula() As Integer
        Get
            Return _notaExisteMaiuscula
        End Get
        Set(ByVal _value As Integer)
            _notaExisteMaiuscula = _value
        End Set
    End Property

    Dim _notaExisteMinuscula As Integer
    Public Property NotaExisteMinuscula() As Integer
        Get
            Return _notaExisteMinuscula
        End Get
        Set(ByVal _value As Integer)
            _notaExisteMinuscula = _value
        End Set
    End Property

    Dim _notaTamanhoMinimo As Integer
    Public Property NotaTamanhoMinimo() As Integer
        Get
            Return _notaTamanhoMinimo
        End Get
        Set(ByVal _value As Integer)
            _notaTamanhoMinimo = _value
        End Set
    End Property

    Dim _notaMinimaParaContinuar As Integer
    Public Property NotaMinimaParaContinuar() As Integer
        Get
            Return _notaMinimaParaContinuar
        End Get
        Set(ByVal _value As Integer)
            _notaMinimaParaContinuar = _value
        End Set
    End Property

End Class